home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / pctj8408.arc / RANDOM8.BAS < prev    next >
BASIC Source File  |  1984-05-11  |  898b  |  37 lines
  1. 10 '            Random number generator demonstration
  2. 20 '            Coordinates of points in the display are
  3. 30 '            derived from using successive random
  4. 40 '            numbers generated by RND but randomized.
  5. 50 '            -by P. F. Hultquist, 1983
  6. 60 '
  7. 61 DIM ARRAY(50)
  8. 62 GOSUB 1000
  9. 70 SCREEN 2 : KEY OFF : CLS
  10. 80 FOR K = 1 TO 5000
  11. 85 GOSUB 2000
  12. 90 I =  80 + 465*V
  13. 95 GOSUB 2000
  14. 100 J = 35 + 130*V
  15. 110 PSET(I,J)
  16. 120 NEXT K
  17. 130 '
  18. 140 '           Arrange display
  19. 150 '
  20. 160 LINE (25,10) - (600,10)
  21. 170 LINE -(600,190)
  22. 180 LINE -(25,190)
  23. 190 LINE -(25,10)
  24. 200 LOCATE 23,35
  25. 210 PRINT "Figure 7"
  26. 220 END
  27. 1000 FOR K = 1 TO 50    'Initialization of the
  28. 1010 ARRAY(K) = RND     'randomizer
  29. 1020 NEXT K
  30. 1030 SPARE = RND
  31. 1040 RETURN
  32. 2000 '          Randomizer
  33. 2010 KA = INT(50*SPARE) + 1
  34. 2020 SPARE = ARRAY(KA) : V = SPARE
  35. 2030 ARRAY(KA) = RND
  36. 2040 RETURN
  37.